﻿Public Class JuegoNegocio


    Public Function insertar(ByVal nombre As String, ByVal version As String, ByVal fabricante As String) As Juego

        Dim modelo As New Juego()

        modelo.Nombre = nombre
        modelo.Version = version
        modelo.Fabricante = fabricante

        Dim dao As New JuegoDAO

        Return dao.insertar(modelo)


    End Function



    Public Sub actualizar(ByVal idJuego As Integer, ByVal Nombre As String, ByVal Version As String, ByVal Fabricante As String)

        Dim modelo As New Juego()
        modelo.idJuego = idJuego
        modelo.Nombre = Nombre
        modelo.Version = Version
        modelo.Fabricante = Fabricante


        Dim dao As New JuegoDAO
        dao.actualizar(modelo)

    End Sub

    Public Function listar() As Collection
        Dim dao As New JuegoDAO
        Return dao.listar()
    End Function


    Public Function buscarPorNombre(ByVal nombre As String) As Collection
        Dim dao As New JuegoDAO
        Return dao.buscarPorNombre(nombre)
    End Function

    Public Sub eliminar(ByVal idCategoria As Integer)
        Dim dao As New JuegoDAO
        dao.eliminar(idCategoria)
    End Sub


    Public Function obtener(ByVal idJuego As Integer) As Juego
        Dim dao As New JuegoDAO
        Return dao.obtener(idJuego)
    End Function
End Class
